home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / DrawStudioFPU.lha / DrawStudioDemo / Rexx / DropShadow.dsrx < prev    next >
Text File  |  1996-10-21  |  2KB  |  102 lines
  1. /* Allow commands to return results */
  2.  
  3. options results
  4.  
  5. /* On error, goto ERROR:. Comment out this line if you wish to */
  6. /* perform your own error checking. */
  7.  
  8. signal on error
  9.  
  10. 'PROJECT_LOCK'
  11.  
  12. 'REDRAW_OFF'
  13.  
  14. /* BEGIN PROGRAM *************************************************/
  15.  
  16. 'OBJECT_CLONE 10 10'
  17.  
  18. 'OBJECT_TOBACK'
  19.  
  20. 'ATTRS_FILLFILL_SET "Solid" "50% Black"'
  21. 'ATTRS_PENFILL_SET "None"'
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38. /* END PROGRAM ***************************************************/
  39.  
  40. 'PROJECT_UNLOCK'
  41.  
  42. exit
  43.  
  44. /* On ERROR */
  45.  
  46. ERROR:
  47.  
  48. 'PROJECT_UNLOCK'
  49.  
  50. /* If we get here, either an error occurred with the command's */
  51. /* execution or there was an error with the command itself. */
  52. /* In the former case, rc2 contains the error message and in */
  53. /* the latter, rc2 contains an error number. SIGL contains */
  54. /* the line number of the command which caused the jump */
  55. /* to ERROR: */
  56.  
  57. if datatype(rc2,'NUMERIC') == 1 then do
  58.     /* See if we can describe the error with a string */
  59.  
  60.     select
  61.         when rc2 == 103 then
  62.             err_string = "ERROR 103, "||,
  63.                 "out of memory at line "||SIGL
  64.         when rc2 == 114 then
  65.             err_string = "ERROR 114, "||,
  66.                 "bad command template at line "||SIGL
  67.         when rc2 == 115 then
  68.             err_string = "ERROR 115, "||,
  69.                 "bad number for /N argument at line "||SIGL
  70.         when rc2 == 116 then
  71.             err_string = "ERROR 116, "||,
  72.                 "required argument missing at line "||SIGL
  73.         when rc2 == 117 then
  74.             err_string = "ERROR 117, "||,
  75.                 "value after keywork missing at line "||SIGL
  76.         when rc2 == 118 then
  77.             err_string = "ERROR 118, "||,
  78.                 "wrong number of arguments at line "||SIGL
  79.         when rc2 == 119 then
  80.             err_string = "ERROR 119, "||,
  81.                 "unmatched quotes at line "||SIGL
  82.         when rc2 == 120 then
  83.             err_string = "ERROR 120, "||,
  84.                 "line too long at line "||SIGL
  85.         when rc2 == 236 then
  86.             err_string = "ERROR 236, "||,
  87.                 "unknown command at line "||SIGL
  88.         otherwise
  89.             err_string = "ERROR "||rc2||", at line "||SIGL
  90.         end
  91.     end
  92. else if rc2 == 'RC2' then do
  93.     err_string = "ERROR in command at line "||SIGL
  94.     end
  95. else do
  96.     err_string = rc2||", line "||SIGL
  97.     end
  98.  
  99. req_message TEXT '"'err_string'"'
  100.  
  101. exit
  102.